home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / cuj9204.zip / 1004090D < prev    next >
Text File  |  1992-06-02  |  484b  |  26 lines
  1. main()
  2. {
  3.     int size = 50;
  4.     int vali = 10;
  5.     long vall = 456789;
  6.     double vald = 123.456;
  7.  
  8.     stack3.pstack = malloc(size * sizeof(double));
  9.     if (stack3.pstack == NULL) {
  10.         printf("Can't allocate space for stack3\n");
  11.         exit(1);
  12.     }
  13.  
  14.     stack3.max_stack = size;
  15.  
  16.     push(&stack1, &vali);
  17.     push(&stack2, &vall);
  18.     push(&stack3, &vald);
  19.     printf("stk1: %d\n", *((int *)pop(&stack1)));
  20.     printf("stk2: %ld\n", *((long *)pop(&stack2)));
  21.     printf("stk3: %f\n", *((double *)pop(&stack3)));
  22.  
  23.     return 0;
  24. }
  25.  
  26.